The Ultimate Frank Lloyd…ght - America's Architect/Ultimate Frank Lloyd Wright, The - America's Architect (1994)(Microsoft Home).iso/pre/flw/shared.dir/01061_Script_1061

Text File | 1994-11-15 | 809b | 25 lines

--
on seeAlsoList
  global nowFrame, phrList, seeAlsoObj, reEntry, seeAlsoNess
  global mac
  if mac <> TRUE then
    --ò puppetSprite TRUE lines added by EB 9/12 (they're now being set to FALSE on seeAlso mouseUps...)
    put " " into field "seeAlsoText"
    set the textFont of field "seeAlsoText" to "Helvetica"
    set the textHeight of field "seeAlsoText"  to 12
    set the textSize of field "seeAlsoText" to 10
    set phrList = ""
    set rt = seeAlsoObj(mGetPhrase, nowFrame)
    if phrList <> "" then
      puppetSprite 21, TRUE
      puppetSprite 22, TRUE
      put phrList into field "seeAlsoText"
      set reEntry = TRUE
      set the stretch of sprite 21 to FALSE
      set seeAlsoNess = TRUE
    else
      set seeAlsoNess = FALSE
    end if
  end if
end seeAlsoList
--